use Flap qw/-m -s -w/;

sub{
    my($util, $char) = (shift, shift || '-');
    $char x (-f '/usr/bin/tput' && $util->OS->qx('tput cols') =~ /(\d+)/ && $1 || 80)."\n";
};
